升级1.2至1.3数据库.asp 忠网网站广告管理系统 ZonGG V1.3 - ASP源码程序

www.gusucode.com > 忠网网站广告管理系统 ZonGG V1.3 > 忠网网站广告管理系统 ZonGG V1.3\code\升级1.2至1.3数据库.asp
    <!-- #include file="include/Config.asp" -->
<!-- #include file="include/conn.asp" -->
<!-- #include file="include/Function.asp" -->
<head>
<meta http-equiv="Content-Language" content="zh-cn">
</head>
<p><b>忠网广告1.2至1.3数据库升级程序</b></p>
<%
	if trim(request("a"))="y" then	
	
 	on error resume next 
 	
	Conn.Execute("alter  table Place  add  Pename  varchar(50)") 
	
	Conn.Execute("CREATE TABLE IP1 (IPid COUNTER CONSTRAINT PrimaryKey PRIMARY KEY,ADid int default 0,IPtime datetime,IPaddress varchar(50))") 
	Conn.Execute("CREATE TABLE IP2 (IPid COUNTER CONSTRAINT PrimaryKey PRIMARY KEY,ADid int default 0,IPtime datetime,IPaddress varchar(50))")

	set rs=Conn.Execute("select * from Advertisement where ADipkg=1 ")
	do while not rs.eof
	id=rs(0)
	
    strSourceFile = Server.MapPath(dataxml&"/Advertisement/"&id&"/ip1.xml") 
    Set objXML =Server.CreateObject("Microsoft.XMLDOM")  '创建一个XML对像   
    objXML.load(strSourceFile)  '把XML文件读入内存     
	Set xml=objXML.documentElement.selectSingleNode("ips")  '选取节点 Advertisement
	
	 AllNodesNum =xml.childNodes.length	  
	 For i=1 to AllNodesNum		
		
	  Conn.Execute("insert into ip1(ADid,IPtime,IPaddress) values("&id&",'"&xml.childNodes.item(i-1).childNodes.item(2).text&"','"&xml.childNodes.item(i-1).childNodes.item(3).text&"')")
 	 Next	
	Set xml=nothing
	Set objXML =nothing
	
	
	strSourceFile = Server.MapPath(dataxml&"/Advertisement/"&id&"/ip2.xml") 
    Set objXML =Server.CreateObject("Microsoft.XMLDOM")  '创建一个XML对像   
    objXML.load(strSourceFile)  '把XML文件读入内存     
	Set xml=objXML.documentElement.selectSingleNode("ips")  '选取节点 Advertisement
	
	 AllNodesNum =xml.childNodes.length	  
	 For i=1 to AllNodesNum		
		
	  Conn.Execute("insert into ip2(ADid,IPtime,IPaddress) values("&id&",'"&xml.childNodes.item(i-1).childNodes.item(2).text&"','"&xml.childNodes.item(i-1).childNodes.item(3).text&"')")
 	 Next	
	Set xml=nothing
	Set objXML =nothing
	
	rs.movenext
	loop
	rs.close
	set rs=nothing
  %>
    <p>升级成功！请通过FTP删除该文件。</p>
  <%else%>
  <p><font color="#808080">本升级程序不会改变你当前的广告数据，只是增加新版本必须的部分新字段。<br>
	<br>
	同时，系统已自动将原IP记录导入数据库。</font></p>
<hr width="300" size="1" align="left">
<form method="POST" action="?a=y">
 
	<p><input type="submit" value=" 执行升级 " name="B1"></p>
</form>
  <%
  end if
       
%>

<p><span lang="en"><font face="宋体" style="font-size: 9pt"><font color="#808080">&copy;2006 
</font> <a href="http://soft.duihao.com/"><font color="#808080">对号软件</font></a><font color="#808080">&nbsp; 
忠网广告开发组</font></font></span></p>